
(check (eq (merge (lambda (x y) (< x y)) '(1) '()) '(1)))
